home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / McListBox_1972752132006.psc / McListBox Hybrid / frmListBox.frm < prev    next >
Text File  |  2006-02-12  |  62KB  |  1,760 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Begin VB.Form frmListBox 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "McListBox 2.1 - Test Form !!"
  6.    ClientHeight    =   6120
  7.    ClientLeft      =   45
  8.    ClientTop       =   390
  9.    ClientWidth     =   8850
  10.    Icon            =   "frmListBox.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   408
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   590
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.PictureBox picTop 
  19.       Align           =   1  'Align Top
  20.       BackColor       =   &H00FFFFFF&
  21.       BorderStyle     =   0  'None
  22.       Height          =   975
  23.       Left            =   0
  24.       ScaleHeight     =   975
  25.       ScaleWidth      =   8850
  26.       TabIndex        =   0
  27.       Top             =   0
  28.       Width           =   8850
  29.       Begin VB.Label Label14 
  30.          AutoSize        =   -1  'True
  31.          BackStyle       =   0  'Transparent
  32.          Caption         =   "McListBox 3.2 - Hybrid !!"
  33.          BeginProperty Font 
  34.             Name            =   "Tahoma"
  35.             Size            =   12
  36.             Charset         =   0
  37.             Weight          =   700
  38.             Underline       =   0   'False
  39.             Italic          =   0   'False
  40.             Strikethrough   =   0   'False
  41.          EndProperty
  42.          Height          =   285
  43.          Left            =   960
  44.          TabIndex        =   2
  45.          Top             =   120
  46.          Width           =   2955
  47.       End
  48.       Begin VB.Image Image1 
  49.          Height          =   480
  50.          Left            =   240
  51.          Picture         =   "frmListBox.frx":1D8A
  52.          Top             =   240
  53.          Width           =   480
  54.       End
  55.       Begin VB.Label Label15 
  56.          AutoSize        =   -1  'True
  57.          BackStyle       =   0  'Transparent
  58.          Caption         =   "A perfect replacement for vb's 'ListBox' control, with 'Item HighLight' and 'ListIcons'"
  59.          BeginProperty Font 
  60.             Name            =   "Tahoma"
  61.             Size            =   9.75
  62.             Charset         =   0
  63.             Weight          =   400
  64.             Underline       =   0   'False
  65.             Italic          =   0   'False
  66.             Strikethrough   =   0   'False
  67.          EndProperty
  68.          Height          =   240
  69.          Left            =   960
  70.          TabIndex        =   1
  71.          Top             =   480
  72.          Width           =   7095
  73.       End
  74.    End
  75.    Begin TabDlg.SSTab SSTab1 
  76.       Height          =   4695
  77.       Left            =   3240
  78.       TabIndex        =   3
  79.       Top             =   1200
  80.       Width           =   5415
  81.       _ExtentX        =   9551
  82.       _ExtentY        =   8281
  83.       _Version        =   393216
  84.       Style           =   1
  85.       Tabs            =   6
  86.       Tab             =   4
  87.       TabsPerRow      =   6
  88.       TabHeight       =   529
  89.       TabCaption(0)   =   "General"
  90.       TabPicture(0)   =   "frmListBox.frx":2654
  91.       Tab(0).ControlEnabled=   0   'False
  92.       Tab(0).Control(0)=   "Frame2"
  93.       Tab(0).Control(1)=   "lstSelect"
  94.       Tab(0).Control(2)=   "lbCount"
  95.       Tab(0).Control(3)=   "lbSelItem"
  96.       Tab(0).Control(4)=   "lbSeltext"
  97.       Tab(0).Control(5)=   "lbSelCount"
  98.       Tab(0).Control(6)=   "Label7"
  99.       Tab(0).ControlCount=   7
  100.       TabCaption(1)   =   "Appearance"
  101.       TabPicture(1)   =   "frmListBox.frx":2670
  102.       Tab(1).ControlEnabled=   0   'False
  103.       Tab(1).Control(0)=   "Frame3"
  104.       Tab(1).ControlCount=   1
  105.       TabCaption(2)   =   "Operations"
  106.       TabPicture(2)   =   "frmListBox.frx":268C
  107.       Tab(2).ControlEnabled=   0   'False
  108.       Tab(2).Control(0)=   "Frame1"
  109.       Tab(2).ControlCount=   1
  110.       TabCaption(3)   =   "Style"
  111.       TabPicture(3)   =   "frmListBox.frx":26A8
  112.       Tab(3).ControlEnabled=   0   'False
  113.       Tab(3).Control(0)=   "Label11"
  114.       Tab(3).Control(1)=   "Label12"
  115.       Tab(3).Control(2)=   "McListBox2"
  116.       Tab(3).Control(3)=   "McListBox3"
  117.       Tab(3).ControlCount=   4
  118.       TabCaption(4)   =   "Speed"
  119.       TabPicture(4)   =   "frmListBox.frx":26C4
  120.       Tab(4).ControlEnabled=   -1  'True
  121.       Tab(4).Control(0)=   "Label16"
  122.       Tab(4).Control(0).Enabled=   0   'False
  123.       Tab(4).Control(1)=   "Label10"
  124.       Tab(4).Control(1).Enabled=   0   'False
  125.       Tab(4).Control(2)=   "chkHide"
  126.       Tab(4).Control(2).Enabled=   0   'False
  127.       Tab(4).Control(3)=   "McListBox4"
  128.       Tab(4).Control(3).Enabled=   0   'False
  129.       Tab(4).Control(4)=   "List1"
  130.       Tab(4).Control(4).Enabled=   0   'False
  131.       Tab(4).Control(5)=   "cmdTest"
  132.       Tab(4).Control(5).Enabled=   0   'False
  133.       Tab(4).Control(6)=   "txtCount"
  134.       Tab(4).Control(6).Enabled=   0   'False
  135.       Tab(4).ControlCount=   7
  136.       TabCaption(5)   =   "Hybrid Modes"
  137.       TabPicture(5)   =   "frmListBox.frx":26E0
  138.       Tab(5).ControlEnabled=   0   'False
  139.       Tab(5).Control(0)=   "Label18"
  140.       Tab(5).Control(1)=   "Label19"
  141.       Tab(5).Control(2)=   "Label20"
  142.       Tab(5).Control(3)=   "Label22"
  143.       Tab(5).Control(4)=   "cmdApply"
  144.       Tab(5).Control(5)=   "txtPath"
  145.       Tab(5).Control(6)=   "cmbIcon"
  146.       Tab(5).Control(7)=   "optMode(0)"
  147.       Tab(5).Control(8)=   "optMode(1)"
  148.       Tab(5).Control(9)=   "optMode(2)"
  149.       Tab(5).Control(10)=   "optMode(3)"
  150.       Tab(5).Control(11)=   "optMode(4)"
  151.       Tab(5).Control(12)=   "optMode(5)"
  152.       Tab(5).Control(13)=   "txtFilter"
  153.       Tab(5).Control(14)=   "chkHidden"
  154.       Tab(5).Control(15)=   "chksystem"
  155.       Tab(5).ControlCount=   16
  156.       Begin VB.CheckBox chksystem 
  157.          Caption         =   "Show System files"
  158.          Height          =   255
  159.          Left            =   -74760
  160.          TabIndex        =   97
  161.          Top             =   1440
  162.          Width           =   1935
  163.       End
  164.       Begin VB.CheckBox chkHidden 
  165.          Caption         =   "Show Hidden files"
  166.          Height          =   195
  167.          Left            =   -74760
  168.          TabIndex        =   96
  169.          Top             =   1080
  170.          Width           =   1815
  171.       End
  172.       Begin VB.TextBox txtFilter 
  173.          Alignment       =   2  'Center
  174.          Height          =   285
  175.          Left            =   -71280
  176.          TabIndex        =   94
  177.          Text            =   "*.*"
  178.          Top             =   3120
  179.          Width           =   1215
  180.       End
  181.       Begin VB.OptionButton optMode 
  182.          Caption         =   "Mode_FileBrowser"
  183.          BeginProperty Font 
  184.             Name            =   "Tahoma"
  185.             Size            =   9.75
  186.             Charset         =   0
  187.             Weight          =   400
  188.             Underline       =   0   'False
  189.             Italic          =   0   'False
  190.             Strikethrough   =   0   'False
  191.          EndProperty
  192.          Height          =   255
  193.          Index           =   5
  194.          Left            =   -72480
  195.          TabIndex        =   92
  196.          Top             =   2640
  197.          Width           =   2655
  198.       End
  199.       Begin VB.OptionButton optMode 
  200.          Caption         =   "Mode_FolderBrowser"
  201.          BeginProperty Font 
  202.             Name            =   "Tahoma"
  203.             Size            =   9.75
  204.             Charset         =   0
  205.             Weight          =   400
  206.             Underline       =   0   'False
  207.             Italic          =   0   'False
  208.             Strikethrough   =   0   'False
  209.          EndProperty
  210.          Height          =   255
  211.          Index           =   4
  212.          Left            =   -72480
  213.          TabIndex        =   91
  214.          Top             =   2280
  215.          Width           =   2655
  216.       End
  217.       Begin VB.OptionButton optMode 
  218.          Caption         =   "Mode_FileList"
  219.          BeginProperty Font 
  220.             Name            =   "Tahoma"
  221.             Size            =   9.75
  222.             Charset         =   0
  223.             Weight          =   400
  224.             Underline       =   0   'False
  225.             Italic          =   0   'False
  226.             Strikethrough   =   0   'False
  227.          EndProperty
  228.          Height          =   255
  229.          Index           =   3
  230.          Left            =   -72480
  231.          TabIndex        =   90
  232.          Top             =   1920
  233.          Width           =   2655
  234.       End
  235.       Begin VB.OptionButton optMode 
  236.          Caption         =   "Mode_FolderList"
  237.          BeginProperty Font 
  238.             Name            =   "Tahoma"
  239.             Size            =   9.75
  240.             Charset         =   0
  241.             Weight          =   400
  242.             Underline       =   0   'False
  243.             Italic          =   0   'False
  244.             Strikethrough   =   0   'False
  245.          EndProperty
  246.          Height          =   255
  247.          Index           =   2
  248.          Left            =   -72480
  249.          TabIndex        =   89
  250.          Top             =   1560
  251.          Value           =   -1  'True
  252.          Width           =   2655
  253.       End
  254.       Begin VB.OptionButton optMode 
  255.          Caption         =   "Mode_DriveList"
  256.          BeginProperty Font 
  257.             Name            =   "Tahoma"
  258.             Size            =   9.75
  259.             Charset         =   0
  260.             Weight          =   400
  261.             Underline       =   0   'False
  262.             Italic          =   0   'False
  263.             Strikethrough   =   0   'False
  264.          EndProperty
  265.          Height          =   255
  266.          Index           =   1
  267.          Left            =   -72480
  268.          TabIndex        =   88
  269.          Top             =   1200
  270.          Width           =   2655
  271.       End
  272.       Begin VB.OptionButton optMode 
  273.          Caption         =   "Mode_ListBox"
  274.          BeginProperty Font 
  275.             Name            =   "Tahoma"
  276.             Size            =   9.75
  277.             Charset         =   0
  278.             Weight          =   400
  279.             Underline       =   0   'False
  280.             Italic          =   0   'False
  281.             Strikethrough   =   0   'False
  282.          EndProperty
  283.          Height          =   255
  284.          Index           =   0
  285.          Left            =   -72480
  286.          TabIndex        =   87
  287.          Top             =   840
  288.          Width           =   2655
  289.       End
  290.       Begin VB.ComboBox cmbIcon 
  291.          Height          =   315
  292.          ItemData        =   "frmListBox.frx":26FC
  293.          Left            =   -74760
  294.          List            =   "frmListBox.frx":2706
  295.          TabIndex        =   83
  296.          Text            =   "[SIZE_16] = 0"
  297.          Top             =   3840
  298.          Width           =   4695
  299.       End
  300.       Begin VB.TextBox txtPath 
  301.          Height          =   285
  302.          Left            =   -74760
  303.          TabIndex        =   82
  304.          Top             =   3120
  305.          Width           =   3375
  306.       End
  307.       Begin VB.CommandButton cmdApply 
  308.          Caption         =   "Apply"
  309.          Height          =   255
  310.          Left            =   -71280
  311.          TabIndex        =   81
  312.          Top             =   3480
  313.          Width           =   1215
  314.       End
  315.       Begin VB.TextBox txtCount 
  316.          Alignment       =   2  'Center
  317.          BeginProperty Font 
  318.             Name            =   "Tahoma"
  319.             Size            =   9.75
  320.             Charset         =   0
  321.             Weight          =   400
  322.             Underline       =   0   'False
  323.             Italic          =   0   'False
  324.             Strikethrough   =   0   'False
  325.          EndProperty
  326.          Height          =   375
  327.          Left            =   2160
  328.          TabIndex        =   74
  329.          Text            =   "10000"
  330.          Top             =   4080
  331.          Width           =   855
  332.       End
  333.       Begin VB.CommandButton cmdTest 
  334.          Caption         =   "Test Speed"
  335.          Height          =   375
  336.          Left            =   120
  337.          TabIndex        =   66
  338.          Top             =   4080
  339.          Width           =   2055
  340.       End
  341.       Begin VB.ListBox List1 
  342.          Height          =   3180
  343.          Left            =   2640
  344.          TabIndex        =   65
  345.          Top             =   840
  346.          Width           =   2535
  347.       End
  348.       Begin VB.Frame Frame2 
  349.          Height          =   2775
  350.          Left            =   -74880
  351.          TabIndex        =   40
  352.          Top             =   1800
  353.          Width           =   5175
  354.          Begin VB.ComboBox cmbBorder 
  355.             Height          =   315
  356.             ItemData        =   "frmListBox.frx":2728
  357.             Left            =   2880
  358.             List            =   "frmListBox.frx":2738
  359.             Style           =   2  'Dropdown List
  360.             TabIndex        =   79
  361.             Top             =   1080
  362.             Width           =   1935
  363.          End
  364.          Begin VB.CheckBox chkFlat 
  365.             Caption         =   "Flat ScrollBars"
  366.             BeginProperty Font 
  367.                Name            =   "Tahoma"
  368.                Size            =   8.25
  369.                Charset         =   0
  370.                Weight          =   700
  371.                Underline       =   0   'False
  372.                Italic          =   0   'False
  373.                Strikethrough   =   0   'False
  374.             EndProperty
  375.             Height          =   255
  376.             Left            =   120
  377.             TabIndex        =   77
  378.             Top             =   1920
  379.             Width           =   2295
  380.          End
  381.          Begin VB.CheckBox chkAppear 
  382.             Caption         =   "3D - Appearence"
  383.             BeginProperty Font 
  384.                Name            =   "Tahoma"
  385.                Size            =   8.25
  386.                Charset         =   0
  387.                Weight          =   400
  388.                Underline       =   0   'False
  389.                Italic          =   0   'False
  390.                Strikethrough   =   0   'False
  391.             EndProperty
  392.             Height          =   255
  393.             Left            =   3120
  394.             TabIndex        =   48
  395.             Top             =   360
  396.             Value           =   1  'Checked
  397.             Width           =   1935
  398.          End
  399.          Begin VB.CheckBox chkIcon 
  400.             Caption         =   "Icon Focus"
  401.             BeginProperty Font 
  402.                Name            =   "Tahoma"
  403.                Size            =   8.25
  404.                Charset         =   0
  405.                Weight          =   400
  406.                Underline       =   0   'False
  407.                Italic          =   0   'False
  408.                Strikethrough   =   0   'False
  409.             EndProperty
  410.             Height          =   240
  411.             Left            =   1800
  412.             TabIndex        =   47
  413.             Top             =   720
  414.             Value           =   1  'Checked
  415.             Width           =   1815
  416.          End
  417.          Begin VB.CheckBox chkShowicon 
  418.             Caption         =   "Show Icon"
  419.             BeginProperty Font 
  420.                Name            =   "Tahoma"
  421.                Size            =   8.25
  422.                Charset         =   0
  423.                Weight          =   400
  424.                Underline       =   0   'False
  425.                Italic          =   0   'False
  426.                Strikethrough   =   0   'False
  427.             EndProperty
  428.             Height          =   240
  429.             Left            =   1800
  430.             TabIndex        =   41
  431.             Top             =   360
  432.             Value           =   1  'Checked
  433.             Width           =   1815
  434.          End
  435.          Begin VB.CheckBox chkFull 
  436.             Caption         =   "Full Row Select"
  437.             BeginProperty Font 
  438.                Name            =   "Tahoma"
  439.                Size            =   8.25
  440.                Charset         =   0
  441.                Weight          =   400
  442.                Underline       =   0   'False
  443.                Italic          =   0   'False
  444.                Strikethrough   =   0   'False
  445.             EndProperty
  446.             Height          =   255
  447.             Left            =   120
  448.             TabIndex        =   71
  449.             Top             =   1560
  450.             Width           =   1935
  451.          End
  452.          Begin VB.CheckBox chkStrech 
  453.             Caption         =   "Strech Icon"
  454.             BeginProperty Font 
  455.                Name            =   "Tahoma"
  456.                Size            =   8.25
  457.                Charset         =   0
  458.                Weight          =   400
  459.                Underline       =   0   'False
  460.                Italic          =   0   'False
  461.                Strikethrough   =   0   'False
  462.             EndProperty
  463.             Height          =   255
  464.             Left            =   120
  465.             TabIndex        =   49
  466.             Top             =   1200
  467.             Width           =   1935
  468.          End
  469.          Begin VB.ComboBox cmbSort 
  470.             Height          =   315
  471.             ItemData        =   "frmListBox.frx":278B
  472.             Left            =   2880
  473.             List            =   "frmListBox.frx":2798
  474.             Style           =   2  'Dropdown List
  475.             TabIndex        =   46
  476.             Top             =   1680
  477.             Width           =   1935
  478.          End
  479.          Begin VB.ComboBox cmbAlline 
  480.             Height          =   315
  481.             ItemData        =   "frmListBox.frx":27C7
  482.             Left            =   2880
  483.             List            =   "frmListBox.frx":27D4
  484.             Style           =   2  'Dropdown List
  485.             TabIndex        =   45
  486.             Top             =   2280
  487.             Width           =   1935
  488.          End
  489.          Begin VB.TextBox txtRow 
  490.             Alignment       =   2  'Center
  491.             Height          =   375
  492.             Left            =   1560
  493.             TabIndex        =   44
  494.             Text            =   "26"
  495.             Top             =   2280
  496.             Width           =   855
  497.          End
  498.          Begin VB.CheckBox chkFocus 
  499.             Caption         =   "Focus Rectangle"
  500.             BeginProperty Font 
  501.                Name            =   "Tahoma"
  502.                Size            =   8.25
  503.                Charset         =   0
  504.                Weight          =   400
  505.                Underline       =   0   'False
  506.                Italic          =   0   'False
  507.                Strikethrough   =   0   'False
  508.             EndProperty
  509.             Height          =   240
  510.             Left            =   120
  511.             TabIndex        =   43
  512.             Top             =   720
  513.             Width           =   1815
  514.          End
  515.          Begin VB.CheckBox chkMulti 
  516.             Caption         =   "Multi Select"
  517.             BeginProperty Font 
  518.                Name            =   "Tahoma"
  519.                Size            =   8.25
  520.                Charset         =   0
  521.                Weight          =   400
  522.                Underline       =   0   'False
  523.                Italic          =   0   'False
  524.                Strikethrough   =   0   'False
  525.             EndProperty
  526.             Height          =   240
  527.             Left            =   120
  528.             TabIndex        =   42
  529.             Top             =   360
  530.             Width           =   1815
  531.          End
  532.          Begin VB.Label Label17 
  533.             AutoSize        =   -1  'True
  534.             Caption         =   "Border"
  535.             BeginProperty Font 
  536.                Name            =   "Tahoma"
  537.                Size            =   8.25
  538.                Charset         =   0
  539.                Weight          =   400
  540.                Underline       =   0   'False
  541.                Italic          =   0   'False
  542.                Strikethrough   =   0   'False
  543.             EndProperty
  544.             Height          =   195
  545.             Left            =   4200
  546.             TabIndex        =   80
  547.             Top             =   840
  548.             Width           =   480
  549.          End
  550.          Begin VB.Label Label3 
  551.             AutoSize        =   -1  'True
  552.             Caption         =   "Text Allign"
  553.             BeginProperty Font 
  554.                Name            =   "Tahoma"
  555.                Size            =   8.25
  556.                Charset         =   0
  557.                Weight          =   400
  558.                Underline       =   0   'False
  559.                Italic          =   0   'False
  560.                Strikethrough   =   0   'False
  561.             EndProperty
  562.             Height          =   195
  563.             Left            =   3960
  564.             TabIndex        =   52
  565.             Top             =   2040
  566.             Width           =   750
  567.          End
  568.          Begin VB.Label Label2 
  569.             AutoSize        =   -1  'True
  570.             Caption         =   "Sort Order"
  571.             BeginProperty Font 
  572.                Name            =   "Tahoma"
  573.                Size            =   8.25
  574.                Charset         =   0
  575.                Weight          =   400
  576.                Underline       =   0   'False
  577.                Italic          =   0   'False
  578.                Strikethrough   =   0   'False
  579.             EndProperty
  580.             Height          =   195
  581.             Left            =   3960
  582.             TabIndex        =   51
  583.             Top             =   1440
  584.             Width           =   765
  585.          End
  586.          Begin VB.Label Label5 
  587.             AutoSize        =   -1  'True
  588.             Caption         =   "Row Height"
  589.             BeginProperty Font 
  590.                Name            =   "Tahoma"
  591.                Size            =   8.25
  592.                Charset         =   0
  593.                Weight          =   400
  594.                Underline       =   0   'False
  595.                Italic          =   0   'False
  596.                Strikethrough   =   0   'False
  597.             EndProperty
  598.             Height          =   195
  599.             Left            =   480
  600.             TabIndex        =   50
  601.             Top             =   2400
  602.             Width           =   825
  603.          End
  604.       End
  605.       Begin VB.Frame Frame1 
  606.          Caption         =   "Operations"
  607.          Height          =   4215
  608.          Left            =   -74880
  609.          TabIndex        =   27
  610.          Top             =   360
  611.          Width           =   5175
  612.          Begin VB.CommandButton cmdNew 
  613.             Caption         =   "<Create List>"
  614.             BeginProperty Font 
  615.                Name            =   "MS Sans Serif"
  616.                Size            =   9.75
  617.                Charset         =   0
  618.                Weight          =   700
  619.                Underline       =   0   'False
  620.                Italic          =   0   'False
  621.                Strikethrough   =   0   'False
  622.             EndProperty
  623.             Height          =   375
  624.             Left            =   240
  625.             TabIndex        =   75
  626.             Top             =   1320
  627.             Width           =   1815
  628.          End
  629.          Begin VB.CommandButton cmdSelClear 
  630.             BackColor       =   &H00FFD6AC&
  631.             Caption         =   "Clear Selection"
  632.             Height          =   360
  633.             Left            =   240
  634.             TabIndex        =   70
  635.             Top             =   1800
  636.             Width           =   1815
  637.          End
  638.          Begin VB.CommandButton cmdSelectAll 
  639.             BackColor       =   &H00FFD6AC&
  640.             Caption         =   "Select All"
  641.             Height          =   360
  642.             Left            =   240
  643.             TabIndex        =   69
  644.             Top             =   2280
  645.             Width           =   1815
  646.          End
  647.          Begin VB.CheckBox chkItemBold 
  648.             Caption         =   "Item Bold"
  649.             Height          =   255
  650.             Left            =   360
  651.             TabIndex        =   61
  652.             Top             =   3000
  653.             Width           =   1935
  654.          End
  655.          Begin VB.TextBox txtIcon 
  656.             Alignment       =   2  'Center
  657.             Height          =   360
  658.             Left            =   4200
  659.             TabIndex        =   60
  660.             Text            =   "1"
  661.             Top             =   2880
  662.             Width           =   375
  663.          End
  664.          Begin VB.CommandButton cmdIcon 
  665.             BackColor       =   &H00FFD6AC&
  666.             Caption         =   "Set new Icon"
  667.             Height          =   360
  668.             Left            =   2400
  669.             TabIndex        =   59
  670.             Top             =   2880
  671.             Width           =   1575
  672.          End
  673.          Begin VB.CommandButton cmdClear 
  674.             BackColor       =   &H00FFD6AC&
  675.             Caption         =   "Clear All"
  676.             Height          =   360
  677.             Left            =   2400
  678.             TabIndex        =   37
  679.             Top             =   2280
  680.             Width           =   1575
  681.          End
  682.          Begin VB.TextBox txtAdd 
  683.             Height          =   375
  684.             Left            =   240
  685.             TabIndex        =   36
  686.             Text            =   "Test Add"
  687.             Top             =   600
  688.             Width           =   2175
  689.          End
  690.          Begin VB.CommandButton cmdAdd 
  691.             Caption         =   "Add Text"
  692.             Height          =   360
  693.             Left            =   2400
  694.             TabIndex        =   35
  695.             Top             =   600
  696.             Width           =   1575
  697.          End
  698.          Begin VB.TextBox txtIndex 
  699.             Alignment       =   2  'Center
  700.             Height          =   360
  701.             Left            =   4200
  702.             TabIndex        =   34
  703.             Text            =   "-1"
  704.             Top             =   600
  705.             Width           =   375
  706.          End
  707.          Begin VB.CommandButton cmdRemove 
  708.             Caption         =   "Remove"
  709.             Height          =   375
  710.             Left            =   2400
  711.             TabIndex        =   33
  712.             Top             =   1800
  713.             Width           =   1575
  714.          End
  715.          Begin VB.TextBox txtSelect 
  716.             Alignment       =   2  'Center
  717.             Height          =   360
  718.             Left            =   4200
  719.             TabIndex        =   32
  720.             Text            =   "30"
  721.             Top             =   1320
  722.             Width           =   375
  723.          End
  724.          Begin VB.CommandButton cmdSelect 
  725.             Caption         =   "Set Selected"
  726.             Height          =   360
  727.             Left            =   2400
  728.             TabIndex        =   31
  729.             Top             =   1320
  730.             Width           =   1575
  731.          End
  732.          Begin VB.TextBox txtRemove 
  733.             Alignment       =   2  'Center
  734.             Height          =   360
  735.             Left            =   4200
  736.             TabIndex        =   30
  737.             Text            =   "-1"
  738.             Top             =   1800
  739.             Width           =   375
  740.          End
  741.          Begin VB.TextBox txtImage 
  742.             Alignment       =   2  'Center
  743.             Height          =   360
  744.             Left            =   4680
  745.             TabIndex        =   29
  746.             Text            =   "0"
  747.             Top             =   600
  748.             Width           =   375
  749.          End
  750.          Begin VB.CheckBox chkBold 
  751.             Caption         =   "Bold"
  752.             Height          =   240
  753.             Left            =   4200
  754.             TabIndex        =   28
  755.             Top             =   960
  756.             Width           =   855
  757.          End
  758.          Begin ListBox.McImageList McImageList1 
  759.             Left            =   360
  760.             Top             =   3480
  761.             _ExtentX        =   7646
  762.             _ExtentY        =   873
  763.             Images0         =   "frmListBox.frx":2808
  764.             Images1         =   "frmListBox.frx":2BA2
  765.             Images2         =   "frmListBox.frx":2F3C
  766.             Images3         =   "frmListBox.frx":32D6
  767.             Images4         =   "frmListBox.frx":3670
  768.             Images5         =   "frmListBox.frx":3A0A
  769.             Images6         =   "frmListBox.frx":3DA4
  770.             Images7         =   "frmListBox.frx":413E
  771.             Images8         =   "frmListBox.frx":44D8
  772.             Images9         =   "frmListBox.frx":4872
  773.             Images10        =   "frmListBox.frx":4C0C
  774.             Images11        =   "frmListBox.frx":4FA6
  775.             Images12        =   "frmListBox.frx":5340
  776.             ImageCount      =   13
  777.             CurrentImage    =   12
  778.          End
  779.          Begin VB.Label Label8 
  780.             AutoSize        =   -1  'True
  781.             Caption         =   "Index"
  782.             BeginProperty Font 
  783.                Name            =   "Tahoma"
  784.                Size            =   8.25
  785.                Charset         =   0
  786.                Weight          =   400
  787.                Underline       =   0   'False
  788.                Italic          =   0   'False
  789.                Strikethrough   =   0   'False
  790.             EndProperty
  791.             Height          =   195
  792.             Left            =   4080
  793.             TabIndex        =   39
  794.             Top             =   360
  795.             Width           =   420
  796.          End
  797.          Begin VB.Label Label9 
  798.             AutoSize        =   -1  'True
  799.             Caption         =   "Image"
  800.             BeginProperty Font 
  801.                Name            =   "Tahoma"
  802.                Size            =   8.25
  803.                Charset         =   0
  804.                Weight          =   400
  805.                Underline       =   0   'False
  806.                Italic          =   0   'False
  807.                Strikethrough   =   0   'False
  808.             EndProperty
  809.             Height          =   195
  810.             Left            =   4680
  811.             TabIndex        =   38
  812.             Top             =   360
  813.             Width           =   450
  814.          End
  815.       End
  816.       Begin VB.Frame Frame3 
  817.          Height          =   4215
  818.          Left            =   -74880
  819.          TabIndex        =   5
  820.          Top             =   360
  821.          Width           =   5175
  822.          Begin VB.ComboBox cmbSelection 
  823.             Height          =   360
  824.             ItemData        =   "frmListBox.frx":56DA
  825.             Left            =   2640
  826.             List            =   "frmListBox.frx":56E4
  827.             TabIndex        =   72
  828.             Text            =   "[Style_XP] = 1"
  829.             Top             =   480
  830.             Width           =   1935
  831.          End
  832.          Begin VB.PictureBox picSelGrad 
  833.             Appearance      =   0  'Flat
  834.             BackColor       =   &H80000005&
  835.             ForeColor       =   &H80000008&
  836.             Height          =   255
  837.             Left            =   1800
  838.             ScaleHeight     =   225
  839.             ScaleWidth      =   345
  840.             TabIndex        =   16
  841.             Top             =   2880
  842.             Width           =   375
  843.          End
  844.          Begin VB.PictureBox picSelCol 
  845.             Appearance      =   0  'Flat
  846.             BackColor       =   &H00FBAF4A&
  847.             ForeColor       =   &H80000008&
  848.             Height          =   255
  849.             Left            =   1800
  850.             ScaleHeight     =   225
  851.             ScaleWidth      =   345
  852.             TabIndex        =   15
  853.             Top             =   2640
  854.             Width           =   375
  855.          End
  856.          Begin VB.PictureBox picBack1 
  857.             Appearance      =   0  'Flat
  858.             BackColor       =   &H00C0C0C0&
  859.             ForeColor       =   &H80000008&
  860.             Height          =   255
  861.             Left            =   1800
  862.             ScaleHeight     =   225
  863.             ScaleWidth      =   345
  864.             TabIndex        =   14
  865.             Top             =   2280
  866.             Width           =   375
  867.          End
  868.          Begin VB.PictureBox picGrid 
  869.             Appearance      =   0  'Flat
  870.             BackColor       =   &H00C0C0C0&
  871.             ForeColor       =   &H80000008&
  872.             Height          =   255
  873.             Left            =   1800
  874.             ScaleHeight     =   225
  875.             ScaleWidth      =   345
  876.             TabIndex        =   13
  877.             Top             =   3840
  878.             Width           =   375
  879.          End
  880.          Begin VB.PictureBox picSelFore 
  881.             Appearance      =   0  'Flat
  882.             BackColor       =   &H80000005&
  883.             ForeColor       =   &H80000008&
  884.             Height          =   255
  885.             Left            =   1800
  886.             ScaleHeight     =   225
  887.             ScaleWidth      =   345
  888.             TabIndex        =   12
  889.             Top             =   3600
  890.             Width           =   375
  891.          End
  892.          Begin VB.PictureBox picFore 
  893.             Appearance      =   0  'Flat
  894.             BackColor       =   &H00000000&
  895.             ForeColor       =   &H80000008&
  896.             Height          =   255
  897.             Left            =   1800
  898.             ScaleHeight     =   225
  899.             ScaleWidth      =   345
  900.             TabIndex        =   11
  901.             Top             =   3360
  902.             Width           =   375
  903.          End
  904.          Begin VB.PictureBox picBack 
  905.             Appearance      =   0  'Flat
  906.             BackColor       =   &H80000005&
  907.             ForeColor       =   &H80000008&
  908.             Height          =   255
  909.             Left            =   1800
  910.             ScaleHeight     =   225
  911.             ScaleWidth      =   345
  912.             TabIndex        =   10
  913.             Top             =   2040
  914.             Width           =   375
  915.          End
  916.          Begin VB.PictureBox picCol 
  917.             Appearance      =   0  'Flat
  918.             AutoSize        =   -1  'True
  919.             BackColor       =   &H80000005&
  920.             ForeColor       =   &H80000008&
  921.             Height          =   2130
  922.             Left            =   2640
  923.             Picture         =   "frmListBox.frx":570C
  924.             ScaleHeight     =   2100
  925.             ScaleWidth      =   2100
  926.             TabIndex        =   9
  927.             Top             =   1920
  928.             Width           =   2130
  929.          End
  930.          Begin VB.CheckBox chkGrid 
  931.             Caption         =   "GridLines"
  932.             BeginProperty Font 
  933.                Name            =   "Tahoma"
  934.                Size            =   8.25
  935.                Charset         =   0
  936.                Weight          =   400
  937.                Underline       =   0   'False
  938.                Italic          =   0   'False
  939.                Strikethrough   =   0   'False
  940.             EndProperty
  941.             Height          =   255
  942.             Left            =   360
  943.             TabIndex        =   8
  944.             Top             =   480
  945.             Width           =   1935
  946.          End
  947.          Begin VB.ComboBox cmbGradient 
  948.             Height          =   360
  949.             ItemData        =   "frmListBox.frx":13CFE
  950.             Left            =   360
  951.             List            =   "frmListBox.frx":13D17
  952.             TabIndex        =   7
  953.             Text            =   "[Fill_None] = 0"
  954.             Top             =   1080
  955.             Width           =   1935
  956.          End
  957.          Begin VB.ComboBox cmbSelGradient 
  958.             Height          =   360
  959.             ItemData        =   "frmListBox.frx":13DCE
  960.             Left            =   2640
  961.             List            =   "frmListBox.frx":13DE7
  962.             TabIndex        =   6
  963.             Text            =   "[Fill_None] = 0"
  964.             Top             =   1080
  965.             Width           =   1935
  966.          End
  967.          Begin VB.OptionButton optselGrad 
  968.             Caption         =   "SelGradCol"
  969.             BeginProperty Font 
  970.                Name            =   "Tahoma"
  971.                Size            =   8.25
  972.                Charset         =   0
  973.                Weight          =   400
  974.                Underline       =   0   'False
  975.                Italic          =   0   'False
  976.                Strikethrough   =   0   'False
  977.             EndProperty
  978.             Height          =   240
  979.             Left            =   360
  980.             TabIndex        =   17
  981.             Top             =   2880
  982.             Width           =   2055
  983.          End
  984.          Begin VB.OptionButton optselCol 
  985.             Caption         =   "SelColor"
  986.             BeginProperty Font 
  987.                Name            =   "Tahoma"
  988.                Size            =   8.25
  989.                Charset         =   0
  990.                Weight          =   400
  991.                Underline       =   0   'False
  992.                Italic          =   0   'False
  993.                Strikethrough   =   0   'False
  994.             EndProperty
  995.             Height          =   240
  996.             Left            =   360
  997.             TabIndex        =   18
  998.             Top             =   2640
  999.             Width           =   2055
  1000.          End
  1001.          Begin VB.OptionButton optBackGrad 
  1002.             Caption         =   "BackGradCol"
  1003.             BeginProperty Font 
  1004.                Name            =   "Tahoma"
  1005.                Size            =   8.25
  1006.                Charset         =   0
  1007.                Weight          =   400
  1008.                Underline       =   0   'False
  1009.                Italic          =   0   'False
  1010.                Strikethrough   =   0   'False
  1011.             EndProperty
  1012.             Height          =   240
  1013.             Left            =   360
  1014.             TabIndex        =   19
  1015.             Top             =   2280
  1016.             Width           =   2055
  1017.          End
  1018.          Begin VB.OptionButton optGridCol 
  1019.             Caption         =   "GridCol"
  1020.             BeginProperty Font 
  1021.                Name            =   "Tahoma"
  1022.                Size            =   8.25
  1023.                Charset         =   0
  1024.                Weight          =   400
  1025.                Underline       =   0   'False
  1026.                Italic          =   0   'False
  1027.                Strikethrough   =   0   'False
  1028.             EndProperty
  1029.             Height          =   240
  1030.             Left            =   360
  1031.             TabIndex        =   20
  1032.             Top             =   3840
  1033.             Width           =   2055
  1034.          End
  1035.          Begin VB.OptionButton optSelFore 
  1036.             Caption         =   "SelForeColor"
  1037.             BeginProperty Font 
  1038.                Name            =   "Tahoma"
  1039.                Size            =   8.25
  1040.                Charset         =   0
  1041.                Weight          =   400
  1042.                Underline       =   0   'False
  1043.                Italic          =   0   'False
  1044.                Strikethrough   =   0   'False
  1045.             EndProperty
  1046.             Height          =   240
  1047.             Left            =   360
  1048.             TabIndex        =   21
  1049.             Top             =   3600
  1050.             Width           =   2055
  1051.          End
  1052.          Begin VB.OptionButton optFore 
  1053.             Caption         =   "ForeColor"
  1054.             BeginProperty Font 
  1055.                Name            =   "Tahoma"
  1056.                Size            =   8.25
  1057.                Charset         =   0
  1058.                Weight          =   400
  1059.                Underline       =   0   'False
  1060.                Italic          =   0   'False
  1061.                Strikethrough   =   0   'False
  1062.             EndProperty
  1063.             Height          =   240
  1064.             Left            =   360
  1065.             TabIndex        =   22
  1066.             Top             =   3360
  1067.             Width           =   2055
  1068.          End
  1069.          Begin VB.OptionButton optBackColor 
  1070.             Caption         =   "BackColor"
  1071.             BeginProperty Font 
  1072.                Name            =   "Tahoma"
  1073.                Size            =   8.25
  1074.                Charset         =   0
  1075.                Weight          =   400
  1076.                Underline       =   0   'False
  1077.                Italic          =   0   'False
  1078.                Strikethrough   =   0   'False
  1079.             EndProperty
  1080.             Height          =   240
  1081.             Left            =   360
  1082.             TabIndex        =   23
  1083.             Top             =   2040
  1084.             Value           =   -1  'True
  1085.             Width           =   2055
  1086.          End
  1087.          Begin VB.Label Label13 
  1088.             AutoSize        =   -1  'True
  1089.             Caption         =   "Selection Style"
  1090.             BeginProperty Font 
  1091.                Name            =   "Tahoma"
  1092.                Size            =   8.25
  1093.                Charset         =   0
  1094.                Weight          =   400
  1095.                Underline       =   0   'False
  1096.                Italic          =   0   'False
  1097.                Strikethrough   =   0   'False
  1098.             EndProperty
  1099.             Height          =   195
  1100.             Left            =   2640
  1101.             TabIndex        =   73
  1102.             Top             =   240
  1103.             Width           =   1050
  1104.          End
  1105.          Begin VB.Label Label6 
  1106.             AutoSize        =   -1  'True
  1107.             Caption         =   "Select color >"
  1108.             BeginProperty Font 
  1109.                Name            =   "Tahoma"
  1110.                Size            =   8.25
  1111.                Charset         =   0
  1112.                Weight          =   400
  1113.                Underline       =   0   'False
  1114.                Italic          =   0   'False
  1115.                Strikethrough   =   0   'False
  1116.             EndProperty
  1117.             Height          =   195
  1118.             Left            =   360
  1119.             TabIndex        =   26
  1120.             Top             =   1680
  1121.             Width           =   990
  1122.          End
  1123.          Begin VB.Label Label1 
  1124.             AutoSize        =   -1  'True
  1125.             Caption         =   "BackGradient"
  1126.             BeginProperty Font 
  1127.                Name            =   "Tahoma"
  1128.                Size            =   8.25
  1129.                Charset         =   0
  1130.                Weight          =   400
  1131.                Underline       =   0   'False
  1132.                Italic          =   0   'False
  1133.                Strikethrough   =   0   'False
  1134.             EndProperty
  1135.             Height          =   195
  1136.             Left            =   360
  1137.             TabIndex        =   25
  1138.             Top             =   840
  1139.             Width           =   945
  1140.          End
  1141.          Begin VB.Label Label4 
  1142.             AutoSize        =   -1  'True
  1143.             Caption         =   "SelGradient "
  1144.             BeginProperty Font 
  1145.                Name            =   "Tahoma"
  1146.                Size            =   8.25
  1147.                Charset         =   0
  1148.                Weight          =   400
  1149.                Underline       =   0   'False
  1150.                Italic          =   0   'False
  1151.                Strikethrough   =   0   'False
  1152.             EndProperty
  1153.             Height          =   195
  1154.             Left            =   2640
  1155.             TabIndex        =   24
  1156.             Top             =   840
  1157.             Width           =   870
  1158.          End
  1159.       End
  1160.       Begin VB.ListBox lstSelect 
  1161.          BeginProperty Font 
  1162.             Name            =   "Tahoma"
  1163.             Size            =   8.25
  1164.             Charset         =   0
  1165.             Weight          =   400
  1166.             Underline       =   0   'False
  1167.             Italic          =   0   'False
  1168.             Strikethrough   =   0   'False
  1169.          EndProperty
  1170.          Height          =   1035
  1171.          ItemData        =   "frmListBox.frx":13E9E
  1172.          Left            =   -72240
  1173.          List            =   "frmListBox.frx":13EA0
  1174.          TabIndex        =   4
  1175.          Top             =   720
  1176.          Width           =   2535
  1177.       End
  1178.       Begin ListBox.McListBox McListBox4 
  1179.          Height          =   3135
  1180.          Left            =   120
  1181.          TabIndex        =   53
  1182.          Top             =   840
  1183.          Width           =   2415
  1184.          _ExtentX        =   4260
  1185.          _ExtentY        =   5530
  1186.          Picture         =   "frmListBox.frx":13EA2
  1187.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1188.             Name            =   "Tahoma"
  1189.             Size            =   8.25
  1190.             Charset         =   0
  1191.             Weight          =   400
  1192.             Underline       =   0   'False
  1193.             Italic          =   0   'False
  1194.             Strikethrough   =   0   'False
  1195.          EndProperty
  1196.          SelColor        =   -2147483635
  1197.          FullRowSelect   =   -1  'True
  1198.          SelGradientCol  =   16494410
  1199.          SelectionStyle  =   0
  1200.       End
  1201.       Begin ListBox.McListBox McListBox3 
  1202.          Height          =   3615
  1203.          Left            =   -72240
  1204.          TabIndex        =   62
  1205.          Top             =   840
  1206.          Width           =   2415
  1207.          _ExtentX        =   4260
  1208.          _ExtentY        =   6376
  1209.          Picture         =   "frmListBox.frx":13EBE
  1210.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1211.             Name            =   "Tahoma"
  1212.             Size            =   8.25
  1213.             Charset         =   0
  1214.             Weight          =   400
  1215.             Underline       =   0   'False
  1216.             Italic          =   0   'False
  1217.             Strikethrough   =   0   'False
  1218.          EndProperty
  1219.          GridLines       =   -1  'True
  1220.          MultiSelect     =   -1  'True
  1221.          ShowIcon        =   -1  'True
  1222.          SelectionStyle  =   0
  1223.          FlatScrollBar   =   -1  'True
  1224.       End
  1225.       Begin ListBox.McListBox McListBox2 
  1226.          Height          =   3615
  1227.          Left            =   -74880
  1228.          TabIndex        =   76
  1229.          Top             =   840
  1230.          Width           =   2415
  1231.          _ExtentX        =   4260
  1232.          _ExtentY        =   6376
  1233.          Picture         =   "frmListBox.frx":13EDA
  1234.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1235.             Name            =   "Courier New"
  1236.             Size            =   9.75
  1237.             Charset         =   0
  1238.             Weight          =   400
  1239.             Underline       =   0   'False
  1240.             Italic          =   0   'False
  1241.             Strikethrough   =   0   'False
  1242.          EndProperty
  1243.          SelColor        =   16777215
  1244.          SelForeColor    =   0
  1245.          FullRowSelect   =   -1  'True
  1246.          BackGradient    =   5
  1247.          SelGradient     =   4
  1248.          BackGradientCol =   8421504
  1249.          SelGradientCol  =   8421504
  1250.          ShowIcon        =   -1  'True
  1251.          SelectionStyle  =   0
  1252.       End
  1253.       Begin VB.CheckBox chkHide 
  1254.          Caption         =   "Auto Hide ScrollBars"
  1255.          BeginProperty Font 
  1256.             Name            =   "Tahoma"
  1257.             Size            =   8.25
  1258.             Charset         =   0
  1259.             Weight          =   700
  1260.             Underline       =   0   'False
  1261.             Italic          =   0   'False
  1262.             Strikethrough   =   0   'False
  1263.          EndProperty
  1264.          Height          =   255
  1265.          Left            =   120
  1266.          TabIndex        =   78
  1267.          Top             =   600
  1268.          Width           =   2415
  1269.       End
  1270.       Begin VB.Label Label22 
  1271.          AutoSize        =   -1  'True
  1272.          Caption         =   "Filter"
  1273.          Height          =   195
  1274.          Left            =   -71280
  1275.          TabIndex        =   95
  1276.          Top             =   2880
  1277.          Width           =   330
  1278.       End
  1279.       Begin VB.Label Label20 
  1280.          AutoSize        =   -1  'True
  1281.          Caption         =   "IconExtract Size"
  1282.          Height          =   195
  1283.          Left            =   -74760
  1284.          TabIndex        =   86
  1285.          Top             =   3600
  1286.          Width           =   1155
  1287.       End
  1288.       Begin VB.Label Label19 
  1289.          AutoSize        =   -1  'True
  1290.          Caption         =   "Modes"
  1291.          BeginProperty Font 
  1292.             Name            =   "Tahoma"
  1293.             Size            =   9.75
  1294.             Charset         =   0
  1295.             Weight          =   700
  1296.             Underline       =   0   'False
  1297.             Italic          =   0   'False
  1298.             Strikethrough   =   0   'False
  1299.          EndProperty
  1300.          Height          =   240
  1301.          Left            =   -72480
  1302.          TabIndex        =   85
  1303.          Top             =   480
  1304.          Width           =   630
  1305.       End
  1306.       Begin VB.Label Label18 
  1307.          AutoSize        =   -1  'True
  1308.          Caption         =   "Path"
  1309.          Height          =   195
  1310.          Left            =   -74760
  1311.          TabIndex        =   84
  1312.          Top             =   2880
  1313.          Width           =   330
  1314.       End
  1315.       Begin VB.Label Label10 
  1316.          AutoSize        =   -1  'True
  1317.          Caption         =   "Fill 10,000 items!!"
  1318.          BeginProperty Font 
  1319.             Name            =   "Tahoma"
  1320.             Size            =   8.25
  1321.             Charset         =   0
  1322.             Weight          =   400
  1323.             Underline       =   0   'False
  1324.             Italic          =   0   'False
  1325.             Strikethrough   =   0   'False
  1326.          EndProperty
  1327.          Height          =   195
  1328.          Left            =   2640
  1329.          TabIndex        =   68
  1330.          Top             =   600
  1331.          Width           =   1275
  1332.       End
  1333.       Begin VB.Label Label16 
  1334.          Alignment       =   2  'Center
  1335.          AutoSize        =   -1  'True
  1336.          Caption         =   "Check Immediate Window!!"
  1337.          BeginProperty Font 
  1338.             Name            =   "Tahoma"
  1339.             Size            =   8.25
  1340.             Charset         =   0
  1341.             Weight          =   400
  1342.             Underline       =   0   'False
  1343.             Italic          =   0   'False
  1344.             Strikethrough   =   0   'False
  1345.          EndProperty
  1346.          Height          =   195
  1347.          Left            =   3120
  1348.          TabIndex        =   67
  1349.          Top             =   4200
  1350.          Width           =   1980
  1351.       End
  1352.       Begin VB.Label Label12 
  1353.          AutoSize        =   -1  'True
  1354.          Caption         =   "Solid !!"
  1355.          Height          =   240
  1356.          Left            =   -74880
  1357.          TabIndex        =   64
  1358.          Top             =   600
  1359.          Width           =   600
  1360.       End
  1361.       Begin VB.Label Label11 
  1362.          AutoSize        =   -1  'True
  1363.          Caption         =   "Office !! (multi select)"
  1364.          Height          =   240
  1365.          Left            =   -72240
  1366.          TabIndex        =   63
  1367.          Top             =   600
  1368.          Width           =   1860
  1369.       End
  1370.       Begin VB.Label lbCount 
  1371.          AutoSize        =   -1  'True
  1372.          Caption         =   "ListCount"
  1373.          BeginProperty Font 
  1374.             Name            =   "Tahoma"
  1375.             Size            =   8.25
  1376.             Charset         =   0
  1377.             Weight          =   700
  1378.             Underline       =   0   'False
  1379.             Italic          =   0   'False
  1380.             Strikethrough   =   0   'False
  1381.          EndProperty
  1382.          Height          =   195
  1383.          Left            =   -74760
  1384.          TabIndex        =   58
  1385.          Top             =   540
  1386.          Width           =   795
  1387.       End
  1388.       Begin VB.Label lbSelItem 
  1389.          AutoSize        =   -1  'True
  1390.          Caption         =   "Selected Item"
  1391.          BeginProperty Font 
  1392.             Name            =   "Tahoma"
  1393.             Size            =   8.25
  1394.             Charset         =   0
  1395.             Weight          =   700
  1396.             Underline       =   0   'False
  1397.             Italic          =   0   'False
  1398.             Strikethrough   =   0   'False
  1399.          EndProperty
  1400.          Height          =   195
  1401.          Left            =   -74760
  1402.          TabIndex        =   57
  1403.          Top             =   1020
  1404.          Width           =   1200
  1405.       End
  1406.       Begin VB.Label lbSeltext 
  1407.          AutoSize        =   -1  'True
  1408.          Caption         =   "Sel Text"
  1409.          BeginProperty Font 
  1410.             Name            =   "Tahoma"
  1411.             Size            =   8.25
  1412.             Charset         =   0
  1413.             Weight          =   700
  1414.             Underline       =   0   'False
  1415.             Italic          =   0   'False
  1416.             Strikethrough   =   0   'False
  1417.          EndProperty
  1418.          Height          =   195
  1419.          Left            =   -74760
  1420.          TabIndex        =   56
  1421.          Top             =   780
  1422.          Width           =   690
  1423.       End
  1424.       Begin VB.Label lbSelCount 
  1425.          AutoSize        =   -1  'True
  1426.          Caption         =   "SelCount"
  1427.          BeginProperty Font 
  1428.             Name            =   "Tahoma"
  1429.             Size            =   8.25
  1430.             Charset         =   0
  1431.             Weight          =   700
  1432.             Underline       =   0   'False
  1433.             Italic          =   0   'False
  1434.             Strikethrough   =   0   'False
  1435.          EndProperty
  1436.          Height          =   195
  1437.          Left            =   -74760
  1438.          TabIndex        =   55
  1439.          Top             =   1440
  1440.          Width           =   750
  1441.       End
  1442.       Begin VB.Label Label7 
  1443.          AutoSize        =   -1  'True
  1444.          Caption         =   "Selected Items"
  1445.          BeginProperty Font 
  1446.             Name            =   "Tahoma"
  1447.             Size            =   8.25
  1448.             Charset         =   0
  1449.             Weight          =   700
  1450.             Underline       =   0   'False
  1451.             Italic          =   0   'False
  1452.             Strikethrough   =   0   'False
  1453.          EndProperty
  1454.          Height          =   195
  1455.          Left            =   -72240
  1456.          TabIndex        =   54
  1457.          Top             =   480
  1458.          Width           =   1290
  1459.       End
  1460.    End
  1461.    Begin ListBox.McListBox McListBox1 
  1462.       Height          =   4695
  1463.       Left            =   120
  1464.       TabIndex        =   93
  1465.       Top             =   1200
  1466.       Width           =   3015
  1467.       _ExtentX        =   5318
  1468.       _ExtentY        =   8281
  1469.       Picture         =   "frmListBox.frx":13EF6
  1470.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1471.          Name            =   "Tahoma"
  1472.          Size            =   9.75
  1473.          Charset         =   0
  1474.          Weight          =   400
  1475.          Underline       =   0   'False
  1476.          Italic          =   0   'False
  1477.          Strikethrough   =   0   'False
  1478.       EndProperty
  1479.       SelColor        =   16226901
  1480.       BackGradientCol =   -2147483628
  1481.       ShowIcon        =   -1  'True
  1482.       Mode            =   2
  1483.       Path            =   "c:\"
  1484.    End
  1485. End
  1486. Attribute VB_Name = "frmListBox"
  1487. Attribute VB_GlobalNameSpace = False
  1488. Attribute VB_Creatable = False
  1489. Attribute VB_PredeclaredId = True
  1490. Attribute VB_Exposed = False
  1491. Option Explicit
  1492.  
  1493.  
  1494. Private Sub Check1_Click()
  1495.     McListBox1.ShowSystemFiles = chksystem
  1496. End Sub
  1497.  
  1498. Private Sub chkAppear_Click()
  1499.     McListBox1.Appearance = chkAppear
  1500. End Sub
  1501.  
  1502. Private Sub chkFlat_Click()
  1503.     McListBox1.FlatScrollBar = chkFlat
  1504. End Sub
  1505.  
  1506. Private Sub chkFocus_Click()
  1507.     McListBox1.FocusRectangle = chkFocus
  1508. End Sub
  1509.  
  1510. Private Sub chkFull_Click()
  1511.     McListBox1.FullRowSelect = chkFull
  1512. End Sub
  1513.  
  1514. Private Sub chkGrid_Click()
  1515.     McListBox1.GridLines = chkGrid
  1516. End Sub
  1517.  
  1518. Private Sub chkHidden_Click()
  1519.     McListBox1.ShowHiddenFiles = chkHidden
  1520. End Sub
  1521.  
  1522. Private Sub chkHide_Click()
  1523.     McListBox4.AutoHideScrollBars = chkHide
  1524.     McListBox1.AutoHideScrollBars = chkHide
  1525. End Sub
  1526.  
  1527. Private Sub chkIcon_Click()
  1528.     McListBox1.IconFocus = chkIcon
  1529. End Sub
  1530.  
  1531. Private Sub chkItemBold_Click()
  1532.     McListBox1.ListBold(McListBox1.ListIndex) = chkItemBold.Value
  1533. End Sub
  1534.  
  1535. Private Sub chkMulti_Click()
  1536.     McListBox1.MultiSelect = chkMulti
  1537. End Sub
  1538.  
  1539. Private Sub chkShowicon_Click()
  1540.     McListBox1.ShowIcon = chkShowicon.Value
  1541. End Sub
  1542.  
  1543. Private Sub chkStrech_Click()
  1544.     McListBox1.StrechIcon = chkStrech
  1545. End Sub
  1546.  
  1547. Private Sub chksystem_Click()
  1548.     McListBox1.ShowSystemFiles = chksystem
  1549. End Sub
  1550.  
  1551. Private Sub cmbAlline_Click()
  1552.     McListBox1.TextAlignment = cmbAlline.ListIndex
  1553. End Sub
  1554.  
  1555. Private Sub cmbBorder_Click()
  1556.     McListBox1.BorderStyle = cmbBorder.ListIndex
  1557. End Sub
  1558.  
  1559. Private Sub cmbGradient_Click()
  1560.     McListBox1.BackGradient = cmbGradient.ListIndex
  1561. End Sub
  1562.  
  1563. Private Sub cmbSelection_Click()
  1564.     McListBox1.SelectionStyle = cmbSelection.ListIndex
  1565. End Sub
  1566.  
  1567. Private Sub cmbSelGradient_Click()
  1568.     McListBox1.SelGradient = cmbSelGradient.ListIndex
  1569. End Sub
  1570.  
  1571. Private Sub cmbSort_Click()
  1572.     If cmbSort.ListIndex = 2 Then
  1573.         McListBox1.SortOrder = Sort_Ascending
  1574.     Else
  1575.         McListBox1.SortOrder = cmbSort.ListIndex
  1576.     End If
  1577. End Sub
  1578.  
  1579. Private Sub cmdAdd_Click()
  1580.     McListBox1.AddItem txtAdd, txtIndex, Val(txtImage), chkBold
  1581. '    McListBox1.Refresh
  1582. End Sub
  1583.  
  1584. Private Sub cmdBold_Click()
  1585.  
  1586. End Sub
  1587.  
  1588. Private Sub cmdClear_Click()
  1589.     McListBox1.Clear
  1590. End Sub
  1591.  
  1592. Private Sub cmdIcon_Click()
  1593.     McListBox1.ListIcon(McListBox1.ListIndex) = Val(txtIcon)
  1594. End Sub
  1595.  
  1596. Private Sub cmdNew_Click()
  1597. Dim NewList As Control
  1598. Dim X As Long
  1599.  
  1600.     Set NewList = Controls.Add("ListBox.McListBox", "Test")
  1601.     With NewList
  1602.         .Visible = True
  1603.         .Move 0, 0, ScaleWidth, picTop.Height
  1604.         .ZOrder (0)
  1605.         .RowHeight = 16
  1606.         Set .ImageList = McImageList1
  1607.         For X = 0 To 100
  1608.             .AddItem "New Item " & X, -1, Rnd(12), Rnd * 1
  1609.         Next X
  1610. '        .Refresh
  1611.     End With
  1612.     
  1613.     MsgBox "McListBox : Dynamically created!", vbInformation, "Created!"
  1614. End Sub
  1615.  
  1616. Private Sub cmdRemove_Click()
  1617.     McListBox1.Remove txtRemove
  1618. End Sub
  1619.  
  1620. Private Sub cmdSelClear_Click()
  1621.     McListBox1.ClearSelection
  1622. End Sub
  1623.  
  1624. Private Sub cmdSelect_Click()
  1625.     McListBox1.ListIndex = txtSelect
  1626. End Sub
  1627.  
  1628. Private Sub cmdSelectAll_Click()
  1629.     McListBox1.SelectAll
  1630. End Sub
  1631.  
  1632. Private Sub cmdTest_Click()
  1633. Dim tStart As Double
  1634. Dim X As Long
  1635.  
  1636.     List1.Clear
  1637.     McListBox4.Clear
  1638.     Debug.Print vbCrLf
  1639.     
  1640.     tStart = Timer
  1641.     For X = 0 To Val(txtCount)
  1642.         McListBox4.AddItem "ListItem " & X
  1643.     Next X
  1644.     'McListBox4.Refresh
  1645.     Debug.Print "McListBox Took " & (Timer - tStart) * 10 & " ms to fill!!"
  1646.  
  1647.     DoEvents
  1648.     tStart = Timer
  1649.     For X = 0 To Val(txtCount)
  1650.         List1.AddItem "ListItem " & X
  1651.     Next X
  1652.     Debug.Print "VBListBox Took " & (Timer - tStart) * 10 & " ms to fill!!"
  1653.  
  1654. End Sub
  1655.  
  1656.  
  1657. Private Sub Form_Load()
  1658. Dim X As Long
  1659. Dim sText As String
  1660. Dim mBold As Boolean
  1661. On Error GoTo handle
  1662.  
  1663.     Randomize
  1664.     Set McListBox1.ImageList = McImageList1
  1665.     Set McListBox2.ImageList = McImageList1
  1666.     Set McListBox3.ImageList = McImageList1
  1667.     Set McListBox4.ImageList = McImageList1
  1668.     
  1669.     For X = 0 To 50
  1670.     
  1671.         mBold = True
  1672.         Select Case X
  1673.             Case 5
  1674.                 sText = "Move Mouse Here...         And now you see the full Text !!"
  1675.             Case 6
  1676.                 sText = "With Re-arrage...          You can see...          More...            More...           More...            More...            More...            More...            More..."
  1677.             Case 7
  1678.                 sText = "Item Completer with...      " & String(33, ChrW(5000)) & " ...Unicode!!"
  1679.             Case Else
  1680.                 sText = "ListItem " & X
  1681.                 mBold = False
  1682.         End Select
  1683.             
  1684.         McListBox1.AddItem sText, -1, Rnd * 12, mBold
  1685.         McListBox2.AddItem sText, -1, Rnd * 12, mBold
  1686.         McListBox3.AddItem sText, -1, Rnd * 12, mBold
  1687.         
  1688.     Next X
  1689.  
  1690.     txtPath = "c:\"
  1691.     McListBox1.Path = "c:\"
  1692.     
  1693. '    McListBox1.Refresh
  1694. '    McListBox2.Refresh
  1695. '    McListBox3.Refresh
  1696. '    McListBox4.Refresh
  1697.     
  1698. handle:
  1699. End Sub
  1700.  
  1701. Private Sub McListBox1_SelChange()
  1702. Dim X As Long
  1703. On Error GoTo handle
  1704.  
  1705.     lbCount = "List Count = " & McListBox1.ListCount
  1706.     lbSelItem = "Sel Index = " & McListBox1.ListIndex
  1707.     lbSeltext = "Sel Text = " & McListBox1.Text
  1708.     lbSelCount = "SelCount = " & McListBox1.SelCount
  1709.     
  1710.     If McListBox1.ListBold(McListBox1.ListIndex) Then
  1711.         chkItemBold.Value = 1
  1712.     Else
  1713.         chkItemBold.Value = 0
  1714.     End If
  1715.     
  1716.     lstSelect.Clear
  1717.     For X = 0 To McListBox1.SelCount - 1
  1718.         lstSelect.AddItem McListBox1.List(McListBox1.SelItem(X))
  1719.     Next X
  1720.     
  1721. handle:
  1722. End Sub
  1723.  
  1724.  
  1725. Private Sub optMode_Click(Index As Integer)
  1726.     McListBox1.Mode = Index
  1727. End Sub
  1728.  
  1729. Private Sub picCol_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1730. Dim lnCol As Long
  1731.     lnCol = picCol.Point(X, Y)
  1732.     If optBackGrad Then McListBox1.BackGradientCol = lnCol: picBack1.BackColor = lnCol
  1733.     If optBackColor Then McListBox1.BackColor = lnCol: picBack.BackColor = lnCol
  1734.     If optFore Then McListBox1.ForeColor = lnCol: picFore.BackColor = lnCol
  1735.     If optSelFore Then McListBox1.SelForeColor = lnCol: picSelFore.BackColor = lnCol
  1736.  
  1737.     If optGridCol Then McListBox1.GridColor = lnCol: picGrid.BackColor = lnCol
  1738.     
  1739.     If optselCol Then McListBox1.SelColor = lnCol: picSelCol.BackColor = lnCol
  1740.     If optselGrad Then McListBox1.SelGradientCol = lnCol: picSelGrad.BackColor = lnCol
  1741.  
  1742. End Sub
  1743.  
  1744. Private Sub txtRow_Change()
  1745.     McListBox1.RowHeight = Val(txtRow)
  1746. End Sub
  1747.  
  1748. Private Sub cmbIcon_Click()
  1749.     McListBox1.IconExtractSize = cmbIcon.ListIndex
  1750. End Sub
  1751.  
  1752.  
  1753. Private Sub cmdApply_Click()
  1754.     McListBox1.Path = txtPath
  1755.     txtPath = McListBox1.Path
  1756.     McListBox1.Filter = txtFilter
  1757. End Sub
  1758.  
  1759.  
  1760.